Dim fso, fld
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.CreateFolder("c:\Nowy folder testowy")
